home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch12.ISN / input.dir / 00064.ls < prev    next >
Encoding:
Text File  |  1996-12-04  |  665 b   |  20 lines
  1. global gStopPoint, gStopFlag, gSelList, gStopOffset
  2.  
  3. on mouseUp
  4.   if the selection = EMPTY then
  5.     alert("Please make a selection in the Message field!")
  6.   else
  7.     set gSelList to [the selStart, the selEnd]
  8.     set howManyChars to the selEnd - the selStart
  9.     if howManyChars > 36 then
  10.       alert("Please make a selection of 36 characters or less!")
  11.     else
  12.       set the textStyle of member "Message" to "Plain"
  13.       set gStopOffset to (36 - howManyChars) / 2
  14.       set gStopPoint to the selStart - gStopOffset + 36
  15.       set the textStyle of char the selStart + 1 to the selEnd of member "Message" to "Bold"
  16.       set gStopFlag to 1
  17.     end if
  18.   end if
  19. end
  20.